home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / BUSCHECK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  3.3 KB  |  112 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  3. 12  'OPEN                 BUSINESS ACCOUNT BALACING PROGRAM                       OPEN
  4. 14  'OPEN                                                                         OPEN
  5. 16  'OPEN    This program will provide a screen and printer output to reconcile   OPEN
  6. 18  'OPEN a business checking or other money account. It will record and print    OPEN
  7. 20  'OPEN out payee/payor, check or deposit number, and account number. If you    OPEN
  8. 22  'OPEN wish to ignore these input parameters, simply press <ENTER>. Added in-  OPEN
  9. 24  'OPEN structions will appear on the initial screen display when the program   OPEN
  10. 26  'OPEN is run.  For a less complex reconcilation program not needing payee/    OPEN
  11. 28  'OPEN payor, check number, et cetera, see SAVINGS.BAS on this disk.           OPEN
  12. 30  'OPEN    This program may be used, in whole or in part, without license or    OPEN
  13. 32  'OPEN attribution.   (u)  G I N A C O  -  1983              Ver 5.2/320K      OPEN
  14. 34  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  15. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  16. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  17. 60  CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  18. 100  CLS
  19. 110  SCREEN 0,0,0
  20. 120  WIDTH 80
  21. 130  CLEAR
  22. 140  DEFSTRS
  23. 150  KEY OFF
  24. 160  S1$ = CHR$(34)
  25. 170  LPRINT CHR$(27) CHR$(64)
  26. 180  LPRINT CHR$(27); CHR$(69)
  27. 190  CLS
  28. 200  LOCATE 5,15
  29. 210  PRINT "Q U I C K  BUSINESS CHECKBOOK  R E C O N C I L E R"
  30. 220  LOCATE 6,15
  31. 230  PRINT STRING$(50,42)
  32. 240  A$ = ""
  33. 250  B$ = ""
  34. 260  C$ = ""
  35. 270  B! = 0
  36. 280  A! = 0
  37. 290  LOCATE 8,15
  38. 300  PRINT TAB( 15)"DO NOT USE ANY <+> OR <-> SIGNS."
  39. 310  PRINT
  40. 320  PRINT TAB( 15)"ENTER ";S1$;"DEP";S1$;" FOR CHECK NUMBER TO RECORD DEPOSIT."
  41. 330  PRINT
  42. 340  PRINT TAB( 15)"IF YOU WANT A FINAL BALANCE PRINTOUT, <ENTER> "S1$"TOTAL"S1$
  43. 350  PRINT TAB( 15)"AT PAYEE OR PAYOR QUERY."
  44. 360  PRINT
  45. 370  PRINT TAB( 15)"THE MAXIMUM NUMBER LENGTH IS $99,999.00."
  46. 380  PRINT
  47. 390  PRINT TAB( 15)"USE <ENTER> TO OMIT AN ENTRY. IF YOU DO THIS, THE"
  48. 400  PRINT TAB( 15)"FOLLOWING DOLLAR ENTRY WILL BE CONSIDERED A WITHDRAWAL."
  49. 410  GOSUB 910
  50. 420  U$ = "$###,###.##"
  51. 430  CLS
  52. 440  LOCATE 5,15
  53. 450  COLOR 7,0
  54. 460  INPUT "ENTER STARTING BALANCE";A!
  55. 470  COLOR 7,0
  56. 480  LOCATE 5,40
  57. 490  PRINT USING U$;A!
  58. 500  LPRINT TAB( 10)"BUSINESS CHECKBOOK BALANCING PROGRAM PRINTOUT"
  59. 510  LPRINT " "
  60. 520  LPRINT
  61. 530  LPRINT TAB( 40)"STARTING BALANCE: "; USING U$;A!
  62. 540  LPRINT
  63. 550  LPRINT
  64. 560  PRINT
  65. 570  PRINT TAB( 15)"PAYEE OR PAYOR:  ";
  66. 580  LINE INPUT C$
  67. 590  IF LEFT$(C$,3) = "TOT" THEN 830
  68. 600  PRINT TAB( 15)"CHECK NUMBER: <OR ENTER "S1$"DEP"S1$" >  ";
  69. 610  LINE INPUT D$
  70. 620  PRINT TAB( 15)"G.L. ACCOUNT #:  ";
  71. 630  LINE INPUT AN$
  72. 640  PRINT
  73. 650  PRINT TAB( 15)"CHECK OR DEPOSIT AMOUNT:  ";
  74. 660  LINE INPUT B$
  75. 670  B! = VAL(B$)
  76. 680  IF B$ = "" THEN B! = 0
  77. 690  IF LEFT$(D$,3) = "DEP" THEN B! = B! - 2 * B!
  78. 700  A! = A! - B!
  79. 710  PRINT
  80. 720  PRINT TAB( 60)"BAL: ";
  81. 730  PRINT USING U$;A!
  82. 740  PRINT
  83. 750  LPRINT TAB( 5)"PAYEE OR PAYOR: ";C$
  84. 760  LPRINT TAB( 5)"CHECK NUMBER  : ";D$
  85. 770  LPRINT TAB( 5)"G.L. ACCOUNT #: ";AN$;
  86. 780  LPRINT TAB( 55) USING U$;B!;
  87. 790  LPRINT TAB( 70) USING U$;A!
  88. 800  LPRINT " "
  89. 810  PRINT
  90. 820  GOTO 560
  91. 830  LPRINT
  92. 840  LPRINT TAB( 50)"FINAL BAL: ";
  93. 850  LPRINT USING U$;A!
  94. 860  PRINT
  95. 870  PRINT
  96. 880  PRINT TAB( 15)"DO YOU WISH TO RECONCILE ANOTHER ACCOUNT? <Y/N> ";
  97. 890  INPUT Z$
  98. 900  IF LEFT$(Z$,1) = "Y" THEN 140  ELSE END
  99. 910  KEY OFF
  100. 920  LOCATE 25,15
  101. 930  PRINT "PRESS ";
  102. 940  COLOR 0,7
  103. 950  PRINT "  ENTER  ";
  104. 960  COLOR 7,0
  105. 970  PRINT " TO CONTINUE PROGRAM...";
  106. 980  COLOR 7,0
  107. 990  INPUT X!
  108. 1000  RETURN
  109. 1010  END
  110. 65000  '************************* SAVE ROUTINE *****************************
  111. 65100  SAVE "B:BUSCHECK.BAS"
  112.